﻿Public Class frmDebug

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click

        Me.Dispose()

    End Sub

    Private Sub frmDebug_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.lblDBHost.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("MyServer")
        Me.lblDBName.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("MyDatabase")
    End Sub
End Class